Unit UnDmOnderzoeker;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmOnderzoeker = interface(IAppServerSOAP)
    ['{D49287DE-8CD3-40C9-9E9B-905D9E4E18E6}']
  end;

  TDmOnderzoeker = class(TSoapDataModule, IDmOnderzoeker, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrOnderzoeker: TADOQuery;
    PrvOnderzoeker: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmOnderzoekerCreateInstance(out obj: TObject);
begin
 obj := TDmOnderzoeker.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmOnderzoeker, TDmOnderzoekerCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmOnderzoeker));
end.
